home *** CD-ROM | disk | FTP | other *** search
/ B Soft 6 / B-Soft_6_19xx_Maik__Mike_de_Side_A.d64 / made im suff 8 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  55 lines
  1. 1 f$=chr$(34):u$="ewlbl":z$=f$+u$+f$:poke53280,2:poke53281,14:print"[147][142]igitt,hieristdasschpiehl:":print"UIUIUCCI[178]CCCI[178]CCCCK":print"UKJCKJIBUIBBBB":print"BBBJKBBB[171]CC[179]":print"BBBUIBBBB":print"BBBBBBBBB"
  2. 2 print"[177][177]JKJK[177]CCCK[177]CCCCCCCCCK":print"UI*********++":print"JK***++":print"UI*****++":print"BB*******++"
  3. 3 print"BBm*********++":print"JK*****++":print"**********++":print"**++":print"[158]untertitel:**#++":print"[158]CCCCCCCCCCCCC"
  4. 4 print"[144]aug[156]eum[158]a[129]u[149]g[150]e!!!":print"untnuhnpfiehlschpahz!!!":gosub53:poke53280,12:poke53281,13:print"[147][129] vorgeschichte":print" [163][163][163][163][163][163][163][163][163][163][163][163][163]":print" du bist ein kleines teufelchen und":print" wurdest von den erzdaemonen beauf-"
  5. 5 print" tragt, den himmel aufzusuchen und en-":print" gel abzuschlachten, um aus deren flue-":print" gel antichristen-kreuze zu stricken.":print" und schon hast du so ein teil vor dei-":print" ner nase. du wirst":print" (1) dem engel einen blasen,"
  6. 6 print" (2) ihn total vollquatschen oder":print" (3) ihn alle machen und anfangen zu":print"     haekeln."
  7. 7 gosub53:ifa$="1"then11
  8. 8 ifa$="2"then12
  9. 9 ifa$="3"then14
  10. 10 goto7
  11. 11 print" rinn, rinn, immer ins kinn! und ploetz-";:print" lich platzt dir dein kinn! und weil ich";:print" ein programmiererschwein bin, tust du":print" jetzt nicht gewinn' !!! game tot!":gosub53:goto32
  12. 12 print"[147] hey, du quatscht den engel voll, weil":print" er dich schon die ganze zeit anflirtete";:print" waehrend deiner arbeit im goetheinsti-":print" tut. der engel ist zwar ein kleiner und";:print" tierisch huebscher, aber soetwas ge-"
  13. 13 print" hoert sich nicht, wenn man vergeben":print" ist. schade!!! die tollsten maedchen":print" wuerde man kriegen, wenn man vergeben":print" ist. notgeile sau. zur strafe verlierst";:print" du!!!":gosub53:goto32
  14. 14 print" so haekelst du ein schoenes fleischmu-":print" ster aus gedaermen und nervenstraengen.";:print" das sieht toll aus und beamt dich in":print" den naechsten abschnitt!!":gosub53:print"[147]":poke53280,0:poke53281,0:print"[206]un hast [196]u also ein schoenes selbstge-"
  15. 15 print"stricktes [193]ntichristen-[203]reuz vorzuwei-":print"sen. [213]nd nun?":print"(1) [206]ach weiteren [197]ngeln [193]usschau hal-":print"    ten,":print"(2) dem [207]berteufel [194]ericht erstatten,":print"(3) oder [193]pokalypse einleiten?"
  16. 16 gosub53:ifa$="1"then20
  17. 17 ifa$="2"then21
  18. 18 ifa$="3"then22
  19. 19 goto16
  20. 20 print"[196]as ist es, was ich hoeren wollte. [213]nd":print"schon wirst [196]u in einen weiteren [193]b-":print"schnitt dieses [211]piels gebeamt!":gosub53:goto23
  21. 21 print"[196]er heizt [196]ir schoen ein, nachdem [196]u le-";:print"diglich einen [197]ngel abgemurkst hast. [218]ur";:print"[211]trafe musst [196]u noch einmal von vorn an-";:print"fangen!":gosub53:goto32
  22. 22 print"[211]o etwas darf ein kleines [212]eufelchen":print"noch gar nicht. [215]eil [196]u nicht sehr fueg-";:print"sam bist, beginnt fuer [196]ich der ganze":print"[211]pass von [206]euem...":gosub53:goto32
  23. 23 print"[147]":poke53281,12:poke53280,4:print"[142] was willst du verficktes bloedes":print" arschloch machen?":print" (1) das spiel beenden.":print" (2) wie maik gerade eine rauchen.":print" (3) dich mit allen engeln versoehnen."
  24. 24 gosub53:ifa$="1"then28
  25. 25 ifa$="2"then30
  26. 26 ifa$="3"then31
  27. 27 goto24
  28. 28 print" aha, du hast wohl keinen bock mehr? na":print" gut, dann verpiss dich doch! aber vor-":print" her machst du erstmal bekanntschaft":print" mit dem "z$"-generator, um dieses":print" beschissene spiel zu loesen. vorher"
  29. 29 print" lasse ich dich hier nicht weg!":gosub53:goto39
  30. 30 print" ob kleine teufelchen nie an lungen-":print" krebs erkranken? fehldenken!":gosub53:goto32
  31. 31 print" hast du schon mal ueberlegt, selber 'n":print" engel zu werden, du scheinheilige":print" fickfresse, du? verloren!":gosub53:goto32
  32. 32 poke53280,4:poke53281,15:print"[147][142][153]      [160]         [160]      ":print"      [160]   [160]   ":print"      [160]     [160]   ":print"      [160]   [160]  ":print"                  "
  33. 33 print"                                      ":print"  wie sehr du dich auch angestrengt   ":print"   haben magst... hier findet dein    ":print"      armseliges leben ein ende       ":print"                                      "
  34. 34 print"[158]                                      ":print" wenn du noch einmal von vorn begin-  ":print"   nen moechtest, dann druecke ein    ":print" >>n<< fuer "f$"neuanfang"f$"; wenn nicht,  ":print"          >>e<< fuer "f$"ende"f$"           "
  35. 35 print"                                      ":print"                                      ":print" made in suff 8 ist ein b-soft-spiel, ":print"   geschrieben von breit night 1999   ":print"                                      "
  36. 36 gosub53:ifa$="n"thenrun
  37. 37 ifa$="e"thenpoke53281,6:goto46
  38. 38 goto36
  39. 39 print"[147]":poke53280,6:poke53281,6:dima$(4):p=1762:gosub50:print"gebe ein wort deiner wahl ein (bitte nur":print"fuenf buchstaben):":print,,"[157]-----":print,,"[145][145][157][153]";:forx=0to4:gosub48:next:print:fork=0to4:i$=i$+a$(k):next:ifi$=u$thengoto52
  40. 40 print"die "z$"-maschine tritt in aktion...":forx=0to4:readq:z=asc(a$(x)):z=z-64:p=p+1:ifq=zthengosub47:next
  41. 41 ifq<zthenu=-1
  42. 42 ifq>zthenu=1
  43. 43 ifq=zandp=1767then45
  44. 44 ifp<1768thenfory=ztoqstepu:pokep,y:gosub47:next:next
  45. 45 print"juchhu! experiment geglueckt!":gosub51
  46. 46 print"[147]":poke53280,14:print"[154] (w) by [155]breit night[154] in 1999 for b-soft!":new
  47. 47 fors=1to50:next:return
  48. 48 gosub53:z=asc(a$):ifz<65orz>90thenx=x-1:return
  49. 49 printa$;:a$(x)=a$:return:data5,23,12,2,12
  50. 50 print"nun wird es aber zeit fuer dich, die sa-":print"genhafte[153]":print,"[213][201][213] [213][213] [176][201][213]":print,"[171] [194][194][194][194] [171][179][194]  - maschine":print,"[202][203][202][177][203][202][203][173][203][202][203]":print"kennenzulernen, welche die unglaubliche":print"eigenschaft besitzt, jedes beliebige":print"wort in "z$" zu verwandeln.":gosub51:return
  51. 51 fors=1to2000:next:return
  52. 52 gosub51:print"na toll.. wie einfallsreich!":gosub51:goto32
  53. 53 geta$:ifa$=""then53
  54. 54 return
  55.